700
How can I change the shape of the task bar

local oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
var_Bar = oG2antt.Chart.Bars.Copy("Task","T2")
	var_Bar.StartShape = 2
	var_Bar.StartColor = 0xff
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"T2","01/02/2001","01/04/2001")
	var_Items.AddBar(var_Items.AddItem("Item 2"),"Task","01/02/2001","01/04/2001")

699
How can I change the starting shape for all task bars

local oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
var_Bar = oG2antt.Chart.Bars.Item("Task")
	var_Bar.StartShape = 1
	var_Bar.StartColor = 0xff
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")

698
How can I change the height of the task bar

local oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.Bars.Copy("Task","T2").Height = 17
var_Bar = oG2antt.Chart.Bars.Copy("Task","T2")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Height = 17]
endwith
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"T2","01/02/2001","01/04/2001")
	var_Items.AddBar(var_Items.AddItem("Item 2"),"Task","01/02/2001","01/04/2001")

697
How can I change the height for all task bars

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Bars.Item("Task").Height = 17
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")

696
How can I change the color of the task bar

local oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.Bars.Copy("Task","T2").Color = 0xff
var_Bar = oG2antt.Chart.Bars.Copy("Task","T2")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Color = 255]
endwith
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"T2","01/02/2001","01/04/2001")
	var_Items.AddBar(var_Items.AddItem("Item 2"),"Task","01/02/2001","01/04/2001")

695
How can I change the color for all task bars

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Bars.Item("Task").Color = 0xff
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")

694
How can I change the shape for all task bars

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Bars.Item("Task").Shape = 4
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")

693
How can I change the shape of the task bar

local oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.Bars.Copy("Task","T2").Shape = 19
var_Bar = oG2antt.Chart.Bars.Copy("Task","T2")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Shape = 19]
endwith
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"T2","01/02/2001","01/04/2001")

692
How can I change the pattern or style for all task bars

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Bars.Item("Task").Pattern = 5
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")

691
How can I change the pattern of the task bar

local oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.Bars.Copy("Task","T2").Pattern = 5
var_Bar = oG2antt.Chart.Bars.Copy("Task","T2")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Pattern = 5]
endwith
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"T2","01/02/2001","01/04/2001")

690
How can I add a percent bar in the chart area, so the task bar is splited for non working days or hours

local h,oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
// oG2antt.Chart.Bars.Add("Task%Progress:Split").Shortcut = "TS"
var_Bar = oG2antt.Chart.Bars.Add("Task%Progress:Split")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Shortcut = "TS"]
endwith
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"TS","01/02/2001","01/16/2001","P1")
	// var_Items.ItemBar(h,"P1",12) = 0.14
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"P1",12) = 0.14]
	endwith
	// var_Items.ItemBar(h,"P1",14) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"P1",14) = True]
	endwith

689
How can I add a bar in the chart area, so the task bar is splited for non working days or hours

local oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
// oG2antt.Chart.Bars.Add("Task:Split").Shortcut = "TS"
var_Bar = oG2antt.Chart.Bars.Add("Task:Split")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Shortcut = "TS"]
endwith
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"TS","01/02/2001","01/16/2001")

688
How can I add a split bar in the chart area

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Split","01/02/2001","01/06/2001")

687
How can I add a progress bar in the chart area

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Progress","01/02/2001","01/06/2001")

686
How can I add a milestone bar in the chart area

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Milestone","01/02/2001","01/02/2001")

685
How can I add a summary bar in the chart area

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Summary","01/02/2001","01/06/2001")

684
How can I add a project summary bar in the chart area

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Project Summary","01/02/2001","01/06/2001")

683
How can I add a deadline bar in the chart area

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Deadline","01/02/2001","01/02/2001")

682
How can I add a task bar in the chart area

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task","01/02/2001","01/04/2001")

681
How can I assign a picture or an icon to a bar in the chart

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Template = [HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"] // oG2antt.HTMLPicture("p1") = "c:\exontrol\images\zipdisk.gif"
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	// var_Items.ItemHeight(h) = 48
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemHeight(h) = 48]
	endwith
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",3) = "<img>p1</img>"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",3) = "<img>p1</img>"]
	endwith
	// var_Items.ItemBar(h,"K1",4) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",4) = 2]
	endwith

680
How can I assign a picture or an icon to a bar in the chart

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",3) = "<img>1</img>"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",3) = "<img>1</img>"]
	endwith

679
How can I display or add an anchor or a hyperlink in the link

local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
	var_Items.AddItem("")
	var_Items.AddItem("")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",12) = "just <a1>link</a>"
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",12) = "just <a1>link</a>"]
	endwith

678
How can I display a picture or an icon on the link

local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",12) = "just <img>1</img> link"
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",12) = "just <img>1</img> link"]
	endwith

677
How can I display a picture or an icon on the link

local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oG2antt.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",12) = "<img>pic1</img><br><br>just a link"
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",12) = "<img>pic1</img><br><br>just a link"]
	endwith

676
How can I display some HTML text or caption on link

local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",12) = "L<b>1</b>"
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",12) = "L<b>1</b>"]
	endwith

675
How can I assign a tooltip to a link

local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",12) = "L<b>1</b>"
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",12) = "L<b>1</b>"]
	endwith
	// var_Items.Link("L1",13) = "This is a bit of text that's shown when the cursor hovers the link"
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",13) = "This is a bit of text that's shown when the cursor hovers the link"]
	endwith

674
Can I change the width or the size of the link

local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",9) = 0
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",9) = 0]
	endwith
	// var_Items.Link("L1",10) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",10) = 2]
	endwith

673
Can I change the style of the link

local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",9) = 4
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",9) = 4]
	endwith

672
Can I change the color of the link

local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",8) = 255
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",8) = 255]
	endwith

671
Can I change the part of the bar where the link ends

local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",6) = 1
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",6) = 1]
	endwith
	// var_Items.Link("L1",7) = 1
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",7) = 1]
	endwith

670
Can I change the part of the bar where the link starts

local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",6) = 0
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",6) = 0]
	endwith

669
How can I associate an extra data to a link
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",5) = "your data"
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",5) = "your data"]
	endwith

668
How can I show or hide a specified link
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",3) = false
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",3) = False]
	endwith

667
How can I get the key of the bar where the link end
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	var_Items.AddItem(var_Items.Link("L1",3))

666
How can I get the key of the bar where the link starts
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	var_Items.AddItem(var_Items.Link("L1",1))

665
How can I get the handle of the item where the link ends
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	var_Items.AddItem(var_Items.Link("L1",2))

664
How can I get the handle of the item where the link starts
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	var_Items.AddItem(var_Items.Link("L1",0))

663
How can I enumerate the links in the chart
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	var_Items.AddLink("L2",h2,"K2",h1,"K1")
	var_Items.AddItem(var_Items.FirstLink)
	var_Items.AddItem(var_Items.NextLink(var_Items.FirstLink))

662
How can I access the properties and method of the link between two bars
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	// var_Items.Link("L1",12) = "L<b>1</b>"
	with (oG2antt)
		TemplateDef = [dim var_Items]
		TemplateDef = var_Items
		Template = [var_Items.Link("L1",12) = "L<b>1</b>"]
	endwith

661
How can I remove a link between two bars
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	var_Items.ClearLinks()

660
How can I remove a link between two bars
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	var_Items.RemoveLink("L1")

659
How do I add a link between two bars

local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")

658
How do I ungroup the bars in the chart
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.GroupBars(h1,"K1",true,h2,"K2",true)
	var_Items.GroupBars(h1,"K1",false,h2,"K2",false)
	var_Items.UngroupBars(h1,"K1",h2,"K2")

657
How do I group one or more bars in the chart, so they are moved together
local h1,h2,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
	var_Items.GroupBars(h1,"K1",true,h2,"K2",true)
	var_Items.GroupBars(h1,"K1",false,h2,"K2",false)

656
How do I find the number or count of bars in the item
local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/01/2001","01/02/2001","K1")
	var_Items.AddBar(h,"Task","01/04/2001","01/06/2001","K2")
	// var_Items.ItemBar(h,"K2",3) = var_Items.ItemBar(h,"<*>",256)
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K2",3) = ItemBar(h,"<*>",256)]
	endwith

655
How can I assign any extra data to a bar in the chart
local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",17) = "your data"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",17) = "your data"]
	endwith

654
How can I enable or disable resizing the percent value of a progress bar, at runtime

local h,oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
// oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Bar = oG2antt.Chart.Bars.Add("Task%Progress")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Shortcut = "Percent"]
endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",12) = 0.35
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",12) = 0.35]
	endwith
	// var_Items.ItemBar(h,"K1",16) = false
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",16) = False]
	endwith

653
Is there any way to change the background color for percent value being displayed on the progress bar

local h,oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
// oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Bar = oG2antt.Chart.Bars.Add("Task%Progress")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Shortcut = "Percent"]
endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",12) = 0.35
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",12) = 0.35]
	endwith
	// var_Items.ItemBar(h,"K1",14) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",14) = True]
	endwith
	// var_Items.ItemBar(h,"K1",13) = "<bgcolor=FF0000> %p%</bgcolor>"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",13) = "<bgcolor=FF0000> %p%</bgcolor>"]
	endwith

652
Is there any way to change the color for percent value being displayed on the progress bar

local h,oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
// oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Bar = oG2antt.Chart.Bars.Add("Task%Progress")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Shortcut = "Percent"]
endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",12) = 0.35
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",12) = 0.35]
	endwith
	// var_Items.ItemBar(h,"K1",14) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",14) = True]
	endwith
	// var_Items.ItemBar(h,"K1",13) = "<fgcolor=FF0000>%p%</fgcolor>"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",13) = "<fgcolor=FF0000>%p%</fgcolor>"]
	endwith

651
Is there any way to change the font for percent value being displayed on the progress bar

local h,oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
// oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Bar = oG2antt.Chart.Bars.Add("Task%Progress")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Shortcut = "Percent"]
endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",12) = 0.35
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",12) = 0.35]
	endwith
	// var_Items.ItemBar(h,"K1",14) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",14) = True]
	endwith
	// var_Items.ItemBar(h,"K1",13) = "<b><font Tahoma;12>%%p</font></b>"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",13) = "<b><font Tahoma;12>%%p</font></b>"]
	endwith

650
How can I horizontally align the caption / percent of a progress-bar

local h,oG2antt,var_Bar,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	// var_Chart.PaneWidth(false) = 128
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 128]
	endwith
	var_Chart.FirstVisibleDate = "01/01/2001"
	var_Bar = var_Chart.Bars.Add("Task%Progress")
		var_Bar.Shortcut = "Percent"
		// var_Bar.Def(14) = true
		with (oG2antt)
			TemplateDef = [dim var_Bar]
			TemplateDef = var_Bar
			Template = [var_Bar.Def(14) = True]
		endwith
		// var_Bar.Def(12) = 1
		with (oG2antt)
			TemplateDef = [dim var_Bar]
			TemplateDef = var_Bar
			Template = [var_Bar.Def(12) = 1]
		endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Left")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",15) = 0
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",15) = 0]
	endwith
	h = var_Items.AddItem("Center")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",15) = 1
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",15) = 1]
	endwith
	h = var_Items.AddItem("Right")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",15) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",15) = 2]
	endwith
	h = var_Items.AddItem("Left")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",15) = 0
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",15) = 0]
	endwith
	// var_Items.ItemBar(h,"K1",12) = 0.5
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",12) = 0.5]
	endwith
	h = var_Items.AddItem("Center")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",12) = 0.5
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",12) = 0.5]
	endwith
	// var_Items.ItemBar(h,"K1",15) = 1
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",15) = 1]
	endwith
	h = var_Items.AddItem("Right")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",15) = 2
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",15) = 2]
	endwith
	// var_Items.ItemBar(h,"K1",12) = 0.5
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",12) = 0.5]
	endwith
oG2antt.EndUpdate()

649
Is there any way to change the format of the percent being displayed on the progress bar

local h,oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
// oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Bar = oG2antt.Chart.Bars.Add("Task%Progress")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Shortcut = "Percent"]
endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",12) = 0.4
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",12) = 0.4]
	endwith
	// var_Items.ItemBar(h,"K1",14) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",14) = True]
	endwith
	// var_Items.ItemBar(h,"K1",13) = "<b>%p/100</b>"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",13) = "<b>%p/100</b>"]
	endwith

648
How can I show or hide the percent value in the progress bar

local h,oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
// oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Bar = oG2antt.Chart.Bars.Add("Task%Progress")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Shortcut = "Percent"]
endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",12) = 0.4
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",12) = 0.4]
	endwith
	// var_Items.ItemBar(h,"K1",14) = true
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",14) = True]
	endwith

647
How can I change the percent value in a progress bar

local h,oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
// oG2antt.Chart.Bars.Add("Task%Progress").Shortcut = "Percent"
var_Bar = oG2antt.Chart.Bars.Add("Task%Progress")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Shortcut = "Percent"]
endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",12) = 0.4
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",12) = 0.4]
	endwith

646
How can I add a percent bar

/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
	BarResize = class::nativeObject_BarResize
endwith
*/
// Occurs when a bar is moved or resized.
function nativeObject_BarResize(Item,Key)
	oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
	? Str(Key) 
return

local h,oG2antt,var_Bar,var_Chart,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = "01/01/2001"
	// var_Chart.PaneWidth(false) = 64
	with (oG2antt)
		TemplateDef = [dim var_Chart]
		TemplateDef = var_Chart
		Template = [var_Chart.PaneWidth(False) = 64]
	endwith
	var_Bar = var_Chart.Bars.Add("Task%Progress")
		var_Bar.Shortcut = "P"
		// var_Bar.Def(14) = true
		with (oG2antt)
			TemplateDef = [dim var_Bar]
			TemplateDef = var_Bar
			Template = [var_Bar.Def(14) = True]
		endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"P","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",12) = 0.4
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",12) = 0.4]
	endwith
	h = var_Items.AddItem("Task 2")
	var_Items.AddBar(h,"Task%Progress","01/02/2001","01/06/2001","K2")
	// var_Items.ItemBar(h,"K2",12) = 0.15
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K2",12) = 0.15]
	endwith
oG2antt.EndUpdate()

645
How can I fix or lock a specified bar at runtime, in the chart
local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",10) = false
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",10) = False]
	endwith
	// var_Items.ItemBar(h,"K1",11) = false
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",11) = False]
	endwith

644
How can I enabled or disable moving a specified bar at runtime, in the chart
local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",10) = false
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",10) = False]
	endwith
	// var_Items.ItemBar(h,"K1",11) = false
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",11) = False]
	endwith

643
How can I enabled or disable sizing a specified bar at runtime, in the chart
local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",10) = false
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",10) = False]
	endwith

642
How can I change the key of the bar in the chart
local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",9) = "NewK"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",9) = "NewK"]
	endwith
	// var_Items.ItemBar(h,"NewK",3) = var_Items.ItemBar(h,"NewK",9)
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"NewK",3) = ItemBar(h,"NewK",9)]
	endwith

641
Can I add a bar in the chart, using your EBN files

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"","01/02/2001","01/05/2001","K1"," EBN ")
	// var_Items.ItemBar(h,"K1",7) = 16777216
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",7) = 16777216]
	endwith
	var_Items.AddBar(h,"Task","01/06/2001","01/08/2001","K2")

640
How can I change the background color of the bar in the chart

local h,oG2antt,var_Bar,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
// oG2antt.Chart.Bars.Copy("Task","TaskR").Color = 0xff
var_Bar = oG2antt.Chart.Bars.Copy("Task","TaskR")
with (oG2antt)
	TemplateDef = [dim var_Bar]
	TemplateDef = var_Bar
	Template = [var_Bar.Color = 255]
endwith
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"TaskR","01/02/2001","01/06/2001","K1")

639
How can I change the background color of the bar in the chart

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Chart.ShowNonworkingDates = false
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",7) = 8421504
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",7) = 8421504]
	endwith

638
How can I change the background color of the HTML text or caption of the bar in the chart

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"]
	endwith

637
How can I change the foreground color of the HTML text or caption of the bar in the chart

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1","t<fgcolor=0000FF>o</fgcolor> do")
	// var_Items.ItemBar(h,"K1",8) = 16777215
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",8) = 16777215]
	endwith

636
How can I change the foreground color of the HTML text or caption of the bar in the chart

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"]
	endwith
	// var_Items.ItemBar(h,"K1",8) = 16777215
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",8) = 16777215]
	endwith

635
How can I assign a tooltip to a bar in the chart

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/04/2001","K1")
	// var_Items.ItemBar(h,"K1",6) = "This is a bit of text that's displayed when the cursor hovers the bar"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",6) = "This is a bit of text that's displayed when the cursor hovers the bar"]
	endwith

634
How can I vertically align the HTML text or caption of the bar in the chart

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	// var_Items.ItemHeight(h) = 32
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemHeight(h) = 32]
	endwith
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"]
	endwith
	// var_Items.ItemBar(h,"K1",5) = 0
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",5) = 0]
	endwith

633
How can I align the HTML text or caption of the bar in the chart

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",3) = "<bgcolor=FF0000> to do </bgcolor>"]
	endwith
	// var_Items.ItemBar(h,"K1",4) = 0
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",4) = 0]
	endwith

632
How can I assign a text or some HTML caption to a bar in the chart

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/06/2001","K1")
	// var_Items.ItemBar(h,"K1",3) = " <bgcolor=FF0000>to do</bgcolor> "
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",3) = " <bgcolor=FF0000>to do</bgcolor> "]
	endwith

631
How can I change the ending date of the bar in the chart
local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/04/2001","K1")
	// var_Items.ItemBar(h,"K1",2) = "01/06/2001"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",2) = #1/6/2001#]
	endwith

630
How can I change the starting date of the bar in the chart
local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/04/2001","K1")
	// var_Items.ItemBar(h,"K1",1) = "01/01/2001"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",1) = #1/1/2001#]
	endwith

629
How can I change the style or the name of the bar in the chart

local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/04/2001","K1")
	// var_Items.ItemBar(h,"K1",0) = "Progress"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",0) = "Progress"]
	endwith

628
How can I access properties and methods of the bar in the chart
local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/04/2001","K1")
	// var_Items.ItemBar(h,"K1",0) = "Progress"
	with (oG2antt)
		TemplateDef = [dim var_Items,h]
		TemplateDef = var_Items
		TemplateDef = h
		Template = [var_Items.ItemBar(h,"K1",0) = "Progress"]
	endwith

627
How can I remove all bars in the item
local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/04/2001","K1")
	var_Items.ClearBars(h)

626
How can I remove a bar from the chart
local h,oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task","01/02/2001","01/04/2001","K1")
	var_Items.RemoveBar(h,"K1")

625
How can I add a bar and some text inside, in the chart area

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task","01/02/2001","01/06/2001",null," to do ")

624
How can I add a bar and some text inside, in the chart area
local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task","01/02/2001","01/06/2001",null,"<bgcolor=FF0000> to do </bgcolor>")

623
How can I add an anchor or a hyperline in the chart area

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"","01/02/2001","01/14/2001",null,"just a <a1>link</a>")

622
How can I add some text or captions in the chart area

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"","01/02/2001","01/14/2001",null,"just a <b>caption</b>")

621
How can I add a bar in the chart area

local oG2antt,var_Items

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task","01/02/2001","01/04/2001")

620
Is there any option to put a picture or an icon to the thumb part of the scroll bar
local oG2antt

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.Template = [ScrollPartCaption(2,256) = "<img>1</img>"] // oG2antt.ScrollPartCaption(2,256) = "<img>1</img>"
oG2antt.Template = [ScrollThumbSize(2) = 24] // oG2antt.ScrollThumbSize(2) = 24

619
How can I scroll fast the chart, or page by page

local oG2antt

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.ScrollHeight = 20
oG2antt.ScrollButtonWidth = 20
oG2antt.AllowChartScrollPage = true
oG2antt.Template = [ScrollPartCaption(2,2048) = "<img>1</img>"] // oG2antt.ScrollPartCaption(2,2048) = "<img>1</img>"
oG2antt.Template = [ScrollPartCaption(2,32) = "<img>2</img>"] // oG2antt.ScrollPartCaption(2,32) = "<img>2</img>"

618
How can I scroll fast the chart, or page by page

local oG2antt

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.ScrollButtonWidth = 16
oG2antt.AllowChartScrollPage = true
oG2antt.Template = [ScrollPartCaption(2,2048) = "<<"] // oG2antt.ScrollPartCaption(2,2048) = "<<"
oG2antt.Template = [ScrollPartCaption(2,32) = ">>"] // oG2antt.ScrollPartCaption(2,32) = ">>"

617
How can I scroll fast the chart, or page by page

local oG2antt

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.AllowChartScrollPage = true

616
How can I display years, from 3 to 3
local oG2antt,var_Level

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitWidth = 64
var_Level = oG2antt.Chart.Level(0)
	var_Level.Label = "<%yyyy%>"
	var_Level.Unit = 0
	var_Level.Count = 3

615
How can I display years
local oG2antt,var_Level

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitWidth = 64
var_Level = oG2antt.Chart.Level(0)
	var_Level.Label = "<%yy%>"
	var_Level.Unit = 0

614
How can I display years

local oG2antt,var_Level

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitWidth = 48
// oG2antt.Chart.Level(0).Label = 0
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 0]
endwith

613
How can I display months, from 3 to 3
local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.UnitWidth = 64
// oG2antt.Chart.Level(0).Label = 1
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 1]
endwith
var_Level1 = oG2antt.Chart.Level(1)
	var_Level1.Label = "<%mmmm%>"
	var_Level1.Unit = 16
	var_Level1.Count = 3

612
How can I display months
local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 1
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 1]
endwith
var_Level1 = oG2antt.Chart.Level(1)
	var_Level1.Label = "<%mmmm%>/<%yy%>"
	var_Level1.Unit = 16

611
How can I display months

local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.UnitWidth = 64
// oG2antt.Chart.Level(0).Label = 1
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 1]
endwith
// oG2antt.Chart.Level(1).Label = 16
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
	TemplateDef = [dim var_Level1]
	TemplateDef = var_Level1
	Template = [var_Level1.Label = 16]
endwith

610
How can I display weeks

local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.UnitWidth = 64
// oG2antt.Chart.Level(0).Label = 17
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 17]
endwith
// oG2antt.Chart.Level(1).Label = 256
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
	TemplateDef = [dim var_Level1]
	TemplateDef = var_Level1
	Template = [var_Level1.Label = 256]
endwith

609
How can I display weeks
local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 17
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 17]
endwith
// oG2antt.Chart.Level(1).Label = "<%ww%>"
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
	TemplateDef = [dim var_Level1]
	TemplateDef = var_Level1
	Template = [var_Level1.Label = "<%ww%>"]
endwith

608
How can I display days, from 2 to 2
local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 256
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 256]
endwith
var_Level1 = oG2antt.Chart.Level(1)
	var_Level1.Label = "<%dd%>"
	var_Level1.Count = 2

607
How can I display days

local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 256
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 256]
endwith
// oG2antt.Chart.Level(1).Label = "<%dd%>"
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
	TemplateDef = [dim var_Level1]
	TemplateDef = var_Level1
	Template = [var_Level1.Label = "<%dd%>"]
endwith

606
How can I display days

local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 256
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 256]
endwith
// oG2antt.Chart.Level(1).Label = 4096
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
	TemplateDef = [dim var_Level1]
	TemplateDef = var_Level1
	Template = [var_Level1.Label = 4096]
endwith

605
How can I display hours, from 6 to 6

local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.FirstVisibleDate = "00:00"
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 4096
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 4096]
endwith
var_Level1 = oG2antt.Chart.Level(1)
	var_Level1.Label = "<%hh%>"
	var_Level1.Count = 6

604
How can I display hours

local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 4096
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 4096]
endwith
// oG2antt.Chart.Level(1).Label = "<%hh%>"
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
	TemplateDef = [dim var_Level1]
	TemplateDef = var_Level1
	Template = [var_Level1.Label = "<%hh%>"]
endwith

603
How can I display hours

local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 4096
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 4096]
endwith
// oG2antt.Chart.Level(1).Label = 65536
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
	TemplateDef = [dim var_Level1]
	TemplateDef = var_Level1
	Template = [var_Level1.Label = 65536]
endwith

602
How can I display minutes, from 15 to 15

local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.FirstVisibleDate = "00:00"
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 65536
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 65536]
endwith
var_Level1 = oG2antt.Chart.Level(1)
	var_Level1.Label = "<%nn%>"
	var_Level1.Count = 15

601
How can I display minutes

local oG2antt,var_Level,var_Level1

oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 65536
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
	TemplateDef = [dim var_Level]
	TemplateDef = var_Level
	Template = [var_Level.Label = 65536]
endwith
// oG2antt.Chart.Level(1).Label = "<%nn%>"
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
	TemplateDef = [dim var_Level1]
	TemplateDef = var_Level1
	Template = [var_Level1.Label = "<%nn%>"]
endwith